home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 January / 64er_Magazin_86-01_1986_Markt__Technik_de.d64 / vergl.von prg. (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  2KB  |  63 lines
  1. 1 rem      vergl.von prg.
  2. 10 :
  3. 20 rem *************************
  4. 30 rem *                       *
  5. 40 rem *  gerhard reul         *
  6. 50 rem *  8591 troestau        *
  7. 60 rem *  tel. 09232/1678      *
  8. 70 rem *                       *
  9. 80 rem *************************
  10. 90 :
  11. 100 dim x(256),y(256):z1$="......"
  12. 110 f1$="<> zeilen-laenge":f2$="zeichen-fehler":f3$="<> zeilen-nr.!!!"
  13. 120 goto450
  14. 130 open15,8,15,"i"
  15. 140 open2,8,2,b1$+",p,r":f=1:gosub590
  16. 150 open3,8,3,b2$+",p,r":f=2:gosub590
  17. 160 get#2,x$,x$
  18. 170 get#3,x$,x$
  19. 180 rem======= laden prg 1 =============
  20. 190 get#2,x$:ifx$=""thenx$=chr$(0)
  21. 200 i=i+1:x(i)=asc(x$)
  22. 210 rem (zu zeile 220)  zeilen-nr. bestimmen
  23. 220 ifi=4thenz=x(4)*256+x(3):z$=right$(z1$+str$(z),7):print"     zeile"z$"  ok[145]"
  24. 230 ifx(i)=0then goto260
  25. 240 goto190
  26. 250 rem  zeilen-oder prg.-ende bestimmen
  27. 260 ifi=2then:ifx(1)=0andx(2)=0thenclose2:close3:close15:goto550:rem  prg.-ende
  28. 270 ifi<5thengoto190
  29. 280 ii=i:i=0
  30. 290 rem======= laden prg 2 =============
  31. 300 get#3,y$:ify$=""theny$=chr$(0)
  32. 310 j=j+1:y(j)=asc(y$)
  33. 320 ify(j)=0then goto340
  34. 330 goto300
  35. 340 ifj<5thengoto300
  36. 350 jj=j:j=0
  37. 360 rem====== vergleichen ==============
  38. 370 ifx(3)<>y(3)orx(4)<>y(4)then:f$=f3$:gosub420:goto430
  39. 380 ifii<>jjthen:f$=f1$:gosub420:goto190
  40. 390 fori=5toii
  41. 400 ifx(i)<>y(i)then:f$=f2$:gosub420:i=ii
  42. 410 next:i=0:goto190
  43. 420 print""f$:return
  44. 430 print"         bitte ueberpruefen !    [146]":close2:close3:close15:goto560
  45. 440 rem========= menue =================
  46. 450 print"[147]       vergleichen von programmen [146]"
  47. 460 print"  es koennen zwei basic-programme,"
  48. 470 print"  die sich auf einer diskette befinden,"
  49. 480 print"  miteinander verglichen werden."
  50. 490 input"   programm-name 1 ";b1$:print:print
  51. 500 input"   programm-name 2 ";b2$
  52. 510 print"[147]      vergleichen von programmen [146]"
  53. 520 print"  programm 1:         programm 2:"
  54. 530 print"  "b1$"                "b2$"":goto130
  55. 540 rem========== warten ===============
  56. 550 print"              ende "
  57. 560 geta$:ifa$=""then560
  58. 570 run
  59. 580 rem====== fehler-kanal =============
  60. 590 input#15,a,a$:ifa=0thenreturn
  61. 600 print"   "f"[157]. ";a$:close2:close3:close15
  62. 610 goto560
  63.